From: Richard M. Stallman Date: Fri, 11 Jun 1993 22:22:15 +0000 (+0000) Subject: (sendmail-pre-abbrev-expand-hook): X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95392 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=256458665655105c8f213f543864b2ba3aa31014;p=emacs.git (sendmail-pre-abbrev-expand-hook): If last-command-char is not a character, don't check char-syntax. --- diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index dcdf3708d60..00ecb7f0cdd 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el @@ -460,8 +460,8 @@ characters which may be a part of the name of a mail-alias.") ;; the mail-mode-header-syntax-table. (set-syntax-table mail-mode-header-syntax-table) - (or (not (integerp last-command-char)) - (eq (char-syntax last-command-char) ?_) + (or (and (integerp last-command-char) + (eq (char-syntax last-command-char) ?_)) (let ((pre-abbrev-expand-hook nil)) ; That's us; don't loop. ;; Use this table so that abbrevs can have hyphens in them. (set-syntax-table mail-abbrev-syntax-table)